From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 23 Jul 1993 16:57:24 +0000 (+0000)
Subject: entered into RCS
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~94815
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=60d38d308aa4b7dedb56c4326bb5c29b52c80090;p=emacs.git

entered into RCS
---

diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el
index 4c4eff773f2..e45f7ff3118 100644
--- a/lisp/play/dunnet.el
+++ b/lisp/play/dunnet.el
@@ -148,9 +148,15 @@
 your objects, to give off an eerie glow."))
   (if (and (= dun-current-room fourth-vermont-intersection) dun-hole)
       (progn
-	(dun-mprincl"You fall into a hole in the ground.")
-	(setq dun-current-room vermont-station)
-	(dun-describe-room vermont-station)))
+	(if (not dun-inbus)
+	    (progn
+	      (dun-mprincl"You fall into a hole in the ground.")
+	      (setq dun-current-room vermont-station)
+	      (dun-describe-room vermont-station))
+	  (progn
+	    (dun-mprincl 
+"The bus falls down a hole in the ground and explodes.")
+	    (dun-die "burning")))))
 
   (if (> dun-current-room endgame-computer-room)
       (progn